﻿Imports Microsoft.VisualBasic.CompilerServices
Imports Stickam_Client.My
Imports System
Imports System.ComponentModel
Imports System.Diagnostics
Imports System.Drawing
Imports System.Runtime.CompilerServices
Imports System.Windows.Forms

Namespace Stickam_Client
    <DesignerGenerated> _
    Public Class Form_JoinLive
        Inherits Form
        ' Methods
        <DebuggerNonUserCode> _
        Public Sub New()
            AddHandler MyBase.Load, New EventHandler(AddressOf Me.Form_JoinLive_Load)
            Me.InitializeComponent
        End Sub

        <DebuggerNonUserCode> _
        Protected Overrides Sub Dispose(ByVal disposing As Boolean)
            Try 
                If (disposing AndAlso (Not Me.components Is Nothing)) Then
                    Me.components.Dispose
                End If
            Finally
                MyBase.Dispose(disposing)
            End Try
        End Sub

        Private Sub Form_JoinLive_Load(ByVal sender As Object, ByVal e As EventArgs)
            Me.StickamURL.Text = MySettingsProperty.Settings.StickamURL
        End Sub

        <DebuggerStepThrough> _
        Private Sub InitializeComponent()
            Me.Label1 = New Label
            Me.StickamURL = New TextBox
            Me.JoinLive = New Button
            Me.SuspendLayout
            Me.Label1.AutoSize = True
            Dim point As New Point(-2, 0)
            Me.Label1.Location = point
            Me.Label1.Name = "Label1"
            Dim size As New Size(&H97, 13)
            Me.Label1.Size = size
            Me.Label1.TabIndex = 0
            Me.Label1.Text = "Enter Stickam URL or ID here-"
            Me.StickamURL.Font = New Font("Microsoft Sans Serif", 12!, FontStyle.Regular, GraphicsUnit.Point, 0)
            point = New Point(1, 12)
            Me.StickamURL.Location = point
            Me.StickamURL.Name = "StickamURL"
            size = New Size(150, &H1A)
            Me.StickamURL.Size = size
            Me.StickamURL.TabIndex = 2
            Me.StickamURL.Text = "john_doe"
            Me.JoinLive.Font = New Font("Microsoft Sans Serif", 6.75!, FontStyle.Regular, GraphicsUnit.Point, 0)
            point = New Point(0, &H26)
            Me.JoinLive.Location = point
            Me.JoinLive.Name = "JoinLive"
            size = New Size(&H98, 20)
            Me.JoinLive.Size = size
            Me.JoinLive.TabIndex = 3
            Me.JoinLive.Text = "Join Live"
            Me.JoinLive.UseCompatibleTextRendering = True
            Me.JoinLive.UseVisualStyleBackColor = True
            Dim ef As New SizeF(6!, 13!)
            Me.AutoScaleDimensions = ef
            Me.AutoScaleMode = AutoScaleMode.Font
            size = New Size(&H98, &H3A)
            Me.ClientSize = size
            Me.Controls.Add(Me.JoinLive)
            Me.Controls.Add(Me.StickamURL)
            Me.Controls.Add(Me.Label1)
            Me.FormBorderStyle = FormBorderStyle.FixedToolWindow
            size = New Size(&H9E, &H52)
            Me.MaximumSize = size
            size = New Size(&H9E, &H52)
            Me.MinimumSize = size
            Me.Name = "Form_JoinLive"
            Me.StartPosition = FormStartPosition.Manual
            Me.Text = "Join Live"
            Me.ResumeLayout(False)
            Me.PerformLayout
        End Sub

        Private Sub JoinLive_Click(ByVal sender As Object, ByVal e As EventArgs)
            MySettingsProperty.Settings.StickamURL = Me.StickamURL.Text
            Me.FormParent.doJoinLive(Me.StickamURL.Text)
            Me.Close
        End Sub


        ' Properties
        Friend Overridable Property JoinLive As Button
            <DebuggerNonUserCode> _
            Get
                Return Me._JoinLive
            End Get
            <MethodImpl(MethodImplOptions.Synchronized), DebuggerNonUserCode> _
            Set(ByVal WithEventsValue As Button)
                Dim handler As EventHandler = New EventHandler(AddressOf Me.JoinLive_Click)
                If (Not Me._JoinLive Is Nothing) Then
                    RemoveHandler Me._JoinLive.Click, handler
                End If
                Me._JoinLive = WithEventsValue
                If (Not Me._JoinLive Is Nothing) Then
                    AddHandler Me._JoinLive.Click, handler
                End If
            End Set
        End Property

        Friend Overridable Property Label1 As Label
            <DebuggerNonUserCode> _
            Get
                Return Me._Label1
            End Get
            <MethodImpl(MethodImplOptions.Synchronized), DebuggerNonUserCode> _
            Set(ByVal WithEventsValue As Label)
                Me._Label1 = WithEventsValue
            End Set
        End Property

        Friend Overridable Property StickamURL As TextBox
            <DebuggerNonUserCode> _
            Get
                Return Me._StickamURL
            End Get
            <MethodImpl(MethodImplOptions.Synchronized), DebuggerNonUserCode> _
            Set(ByVal WithEventsValue As TextBox)
                Me._StickamURL = WithEventsValue
            End Set
        End Property


        ' Fields
        <AccessedThroughProperty("JoinLive")> _
        Private _JoinLive As Button
        <AccessedThroughProperty("Label1")> _
        Private _Label1 As Label
        <AccessedThroughProperty("StickamURL")> _
        Private _StickamURL As TextBox
        Private components As IContainer
        Public FormParent As Form1
    End Class
End Namespace

